home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / PASTLIST.SAB < prev    next >
Text File  |  1991-07-02  |  1KB  |  53 lines
  1. CLS
  2. set error messages off
  3. set messages off
  4. DISPLAY CP.DIS
  5. WRITE "PASTLIST.SAB" AT 2,36
  6. WRITE "This Program Will Dump The AGED Accounts To Hard Copy." at 6,13
  7. write "The Program Will Produce Two Lists On Standard 9 1/2 Wide Paper." +
  8.  at 7,8
  9. write "The First List Is Sorted By Add.Code" AT 9,22
  10. WRITE "The Second List Is Sorted By Last Name" at 10,21
  11. write "The Tractor Feed Must Be Locked Into The Left-Limit Lock." at 11,12
  12. write "Press The <ENTER> Key To Begin" at 13,25
  13. pause
  14. cls
  15. DISPLAY CP.DIS
  16. WRITE "PASTLIST.SAB" AT 2,36
  17. write "Printing sorted by ADD.CODE" AT 6,26
  18. beep
  19. output printer
  20. newpage
  21. print pastrent sorted by add.code where add.code exists
  22. newpage
  23. newpage
  24. output screen
  25. write "Printing sorted by LAST NAME" AT 8,26
  26. beep
  27. output printer
  28. print pastrent sorted by l.name where add.code exists
  29. newpage
  30. output screen
  31. cls
  32. beep;beep
  33. write "Back-up OLDACCT data.  Place Disk In Drive <A>.  Press <ENTER>" at 5,9
  34. pause
  35. output a:backup
  36. backup all from old.mast
  37. output screen
  38. write "Back-Up Complete.  Press <ENTER> To Delete Rows From OLD.MAST" at 10,11
  39. beep
  40. pause
  41. write "!! SAFETY STOP !!  Press <ENTER> To Delete Rows From OLD.MAST" at 11,11
  42. beep;beep
  43. pause
  44. delete rows from old.mast where add.code exists
  45. cls
  46. beep
  47. write "PASTRENT Program Complete.  Press Any Key To Exit."
  48. pause
  49. close
  50. exit
  51.  
  52.  
  53.